home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / Finger 1.3.5 / Tokens / FINGERED.p < prev    next >
Encoding:
Text File  |  1991-11-14  |  206 b   |  17 lines  |  [TEXT/PJMM]
  1. unit FINGERED;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     procedure Main (var p: parameterRecord);
  13.     begin
  14.         p.returnValue^ := p.fingeredname^;
  15.     end;
  16.  
  17. end.